home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / screenplay / utilities / rpgbbs / installerscript < prev    next >
Text File  |  1996-09-25  |  7KB  |  330 lines
  1. ;$VER: RPGBBS Deluxe Installer v1.0 (28 Jan 1995)
  2.  
  3. (set true 1)
  4. (set false 0)
  5. (set quote "\"")
  6. (set nothing "")
  7. (set WB2 (< 2293760 (getversion "exec.library" (resident)))) ; true if under 2.0
  8.  
  9. (set fonts_dir (getassign "FONTS"))
  10. (set libs_dir (getassign "LIBS"))
  11. (set RPGBBS_dir (getassign "RPGBBS"))
  12.  
  13. (set Src_RPGBBS "RPGBBS Install:RPGBBS/")
  14. (set Src_Libs "RPGBBS Install:Libs/")
  15. (set Src_Fonts "RPGBBS Install:Fonts/")
  16. (set Src_Pix "RPGBBS Pix:Pix/")
  17. (set Src_Docs "RPGBBS Extra:Documentation/")
  18. (set Src_Help "RPGBBS Extra:Help/")
  19. (set Src_Menu "RPGBBS Extra:Menu/")
  20. (set Src_Sounds "RPGBBS Extra:Sounds/")
  21. (set Src_Mods "RPGBBS Mods:")
  22.  
  23. (complete 2)
  24.  
  25. ; ask user to locate FONTS: directory
  26.  
  27. (set Fonts_dir
  28.      (askdir
  29.           (prompt "Please locate your FONTS: directory")
  30.           (help @askdir-help)
  31.           (default fonts_dir)
  32.           (newpath)
  33.      )
  34. )
  35.  
  36. (complete 5)
  37.  
  38. (working omp "...Please Wait...")
  39.  
  40. (copyfiles
  41.      (prompt "Select file(s) to be copied into your FONTS: directory:")
  42.      (help "\n\n\n\n\nThis will copy over any fonts needed for the "
  43.      "BBS.\n\n\n\n\n\n\n"
  44.      @copyfiles-help)
  45.      (source Src_Fonts)
  46.      (dest fonts_dir)
  47.      (pattern "(#?)")
  48.      (fonts)
  49.      (confirm)
  50. )
  51.  
  52. (complete 8)
  53.  
  54. ; ask user to locate LIBS: directory
  55.  
  56. (set libs_dir
  57.      (askdir
  58.           (prompt "Please locate your LIBS: directory.")
  59.           (help @askdir-help)
  60.           (default libs_dir)
  61.           (newpath)
  62.      )
  63. )
  64.  
  65. (complete 10)
  66.  
  67. (working omp "...Please Wait...")
  68.  
  69. (copyfiles
  70.      (prompt "Select file(s) to be copied into your LIBS: directory:")
  71.      (help "\n\n\n\nThis will copy the B-tree, RPGBBS, Serial-Console, "
  72.      "and XPR libraries into your system's LIBS: directory.\n\n\n\n"
  73.      @copylib-help)
  74.      (source Src_Libs)
  75.      (dest libs_dir)
  76.      (pattern "(#?.library)")
  77.      (confirm)
  78. )
  79.  
  80. (complete 15)
  81.  
  82. (if  (<> RPGBBS_dir nothing)
  83.      (if  (askbool
  84.                (prompt "\n\n\nSome version of RPGBBS Deluxe software "
  85.                "already exists in your drawer named: \n\n"
  86.                quote RPGBBS_dir quote
  87.                "\n\nDo you want the update installed over it?")
  88.                (help
  89.                "\n\n\nThe installer has determined that you already have a "
  90.                "some version of RPGBBS Deluxe software installed on your "
  91.                "If this is wrong or you want the update installed elsewhere, "
  92.                "select 'NO', otherwise select 'YES'."
  93.                )
  94.                (default 1)
  95.           )
  96.                (set is_update true) 
  97.  
  98. ;else ask where to put software
  99.  
  100.           (
  101.                (set is_update false)
  102.                (set RPGBBS_dir
  103.                (askdir
  104.                     (prompt "Where would you like the updated software "
  105.                     "installed?\n"
  106.                     )
  107.                     (help @askdir-help)
  108.                     (default @default-dest)
  109.                )
  110.                )
  111.  
  112.                (set RPGBBS_dir
  113.                )
  114.  
  115.                (makedir RPGBBS_dir
  116.                (infos)
  117.                )
  118.           )
  119.      )
  120. )
  121.  
  122. ; RPGBBS: was not previously assigned, so ask where to make it
  123. (if  (= RPGBBS_dir nothing)
  124.           (
  125.           (set RPGBBS_dir
  126.                (askdir
  127.                     (prompt "Where would you like the software installed? "
  128.                     "'RPGBBS' will be automatically appended.")
  129.                     (help @askdir-help)
  130.                     (default @default-dest)
  131.                )
  132.           )
  133.  
  134.           (set RPGBBS_dir
  135.           (tackon RPGBBS_dir "RPGBBS")
  136.           )
  137.  
  138.           (makedir RPGBBS_dir
  139.           (infos)
  140.           )
  141.      )
  142. )
  143.  
  144. (complete 20)
  145.  
  146. (copyfiles
  147.      (prompt "Select file(s) to be copied to RPGBBS directory:")
  148.      (help "\n\n\n\nThis will copy programs and support files.\n\n\n\n"
  149.      @copyfiles-help)
  150.      (source Src_RPGBBS)
  151.      (dest RPGBBS_dir)
  152.      (pattern "#?")
  153.      (confirm)
  154. )
  155.  
  156. (complete 33)
  157.  
  158. ;create Pix directory
  159.  
  160. (set Pix_dir
  161. (cat RPGBBS_dir)
  162. )
  163. (set Pix_dir
  164. (tackon Pix_dir "Pix")
  165. )
  166.  
  167. (makedir Pix_dir
  168. (infos)
  169. )
  170.  
  171. (complete 35)
  172.  
  173. (working omp "...Please Wait...")
  174.  
  175. (copyfiles
  176.      (prompt "Select file(s) to be copied to Pix directory:")
  177.      (help "\n\n\n\nThis will copy various text, ANSI, and PXL files for "
  178.      "optional use.\n\n\n\n"
  179.      @copyfiles-help)
  180.      (source Src_Pix)
  181.      (dest Pix_dir)
  182.      (pattern "#?")
  183.      (confirm)
  184. )
  185.  
  186. (complete 63)
  187.  
  188. ;create Documentation directory
  189.  
  190. (set Docs_dir
  191. (cat RPGBBS_dir)
  192. )
  193. (set Docs_dir
  194. (tackon Docs_dir "Documentation")
  195. )
  196.  
  197. (makedir Docs_dir
  198. (infos)
  199. )
  200.  
  201. (complete 65)
  202.  
  203. (working omp "...Please Wait...")
  204.  
  205. (copyfiles
  206.      (prompt "Select file(s) to be copied Documentation directory:")
  207.      (help "\n\n\n\nThis will copy various documentation on "
  208.      "RPGBBS Deluxe, History, and XPR protocols.\n\n\n\n"
  209.      @copyfiles-help)
  210.      (source Src_docs)
  211.      (dest Docs_dir)
  212.      (pattern "#?")
  213.      (confirm)
  214. )
  215.  
  216. (complete 68)
  217.  
  218. ;create Help directory
  219.  
  220. (set Help_dir
  221. (cat RPGBBS_dir)
  222. )
  223. (set Help_dir
  224. (tackon Help_dir "Help")
  225. )
  226.  
  227. (makedir Help_dir
  228. (infos)
  229. )
  230.  
  231. (complete 70)
  232.  
  233. (working omp "...Please Wait...")
  234.  
  235. (copyfiles
  236.      (prompt "Select file(s) to be copied to Help directory:")
  237.      (help "\n\n\n\nThis will copy various text files for "
  238.      "optional use.\n\n\n\n"
  239.      @copyfiles-help)
  240.      (source Src_Help)
  241.      (dest Help_dir)
  242.      (pattern "#?")
  243.      (confirm)
  244. )
  245.  
  246. (complete 73)
  247.  
  248. ;create Menu directory
  249.  
  250. (set Menu_dir
  251. (cat RPGBBS_dir)
  252. )
  253. (set Menu_dir
  254. (tackon Menu_dir "Menu")
  255. )
  256.  
  257. (makedir Menu_dir
  258. (infos)
  259. )
  260.  
  261. (complete 75)
  262.  
  263. (working omp "...Please Wait...")
  264.  
  265. (copyfiles
  266.      (prompt "Select file(s) to be copied to Menu directory:")
  267.      (help "\n\n\n\nThis will copy various text files for "
  268.      "optional use.\n\n\n\n"
  269.      @copyfiles-help)
  270.      (source Src_Menu)
  271.      (dest Menu_dir)
  272.      (pattern "#?")
  273.      (confirm)
  274. )
  275.  
  276. (complete 78)
  277.  
  278. ;create Sounds directory
  279.  
  280. (set Sounds_dir
  281. (cat RPGBBS_dir)
  282. )
  283. (set Sounds_dir
  284. (tackon Sounds_dir "Sounds")
  285. )
  286.  
  287. (makedir Sounds_dir
  288. (infos)
  289. )
  290.  
  291. (complete 80)
  292.  
  293. (working omp "...Please Wait...")
  294.  
  295. (copyfiles
  296.      (prompt "Select file(s) to be copied to Sounds directory:")
  297.      (help "\n\n\n\nThis will copy various IFF sound files for "
  298.      "optional use.\n\n\n\n"
  299.      @copyfiles-help)
  300.      (source Src_Sounds)
  301.      (dest Sounds_dir)
  302.      (pattern "#?")
  303.      (confirm)
  304. )
  305.  
  306. (complete 90)
  307.  
  308. (working omp "...Please Wait...")
  309.  
  310. (copyfiles
  311.      (prompt "Select file(s) to be copied to Sounds directory:")
  312.      (help "\n\n\n\nThis will copy various MOD sound files for "
  313.      "optional use.\n\n\n\n"
  314.      @copyfiles-help)
  315.      (source Src_Mods)
  316.      (dest Sounds_dir)
  317.      (pattern "#?")
  318.      (confirm)
  319. )
  320.  
  321. (complete 99)
  322.  
  323. (message "\n\n\n\n\n\n"
  324. "Installation of RPGBBS Deluxe software is complete!"
  325. )
  326.  
  327. (complete 100)
  328.  
  329. (exit)
  330.